string functions in perl script